con <- file("log/02-balance.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/02-balance.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

con <- file("log/03-ternary-plots-type2.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/03-ternary-plots-type2.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

con <- file("log/04-types-marginal-plots.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/04-types-marginal-plots.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

con <- file("log/05-candidate-regressions.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/05-candidate-regressions.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

con <- file("log/05-candidate-regressions-nonreversed.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/05-candidate-regressions-nonreversed.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

con <- file("log/06-compare-type-coding.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/06-compare-type-coding.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

con <- file("log/07-quantities-reported.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/07-quantities-reported.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

con <- file("log/08-descriptive-stats.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/08-descriptive-stats.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

con <- file("log/09-ranking-models.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/09-ranking-models.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

con <- file("log/10-rr.log")
sink(con, append=TRUE)
sink(con, append=TRUE, type="message")
source("R/10-rr.R", echo=TRUE, max.deparse.length=10000)
sink()
sink(type = "message")

cat(readLines("log/02-balance.log"), sep="\n")
cat(readLines("log/03-ternary-plots-type2.log"), sep="\n")
cat(readLines("log/04-types-marginal-plots.log"), sep="\n")
cat(readLines("log/05-candidate-regressions.log"), sep="\n")
cat(readLines("log/05-candidate-regressions-nonreversed.log"), sep="\n")
cat(readLines("log/06-compare-type-coding.log"), sep="\n")
cat(readLines("log/07-quantities-reported.log"), sep="\n")
cat(readLines("log/08-descriptive-stats.log"), sep="\n")
cat(readLines("log/09-ranking-models.log"), sep="\n")
cat(readLines("log/10-rr.log"), sep="\n")


